home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / FTP / FTP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-11-15  |  2KB  |  161 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Date     DATE001
  24.     Integer  INTEGER001
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     Cls
  38.     BOOLEAN003 = 1
  39.     BOOLEAN004 = 1
  40.     STRING006 = "Y"
  41.     PrintLn "@X0FFTP by Email - Version .20b"
  42.     Delay 10
  43.     FOpen 1, PPEPath() + "FTP.CFG", 0, 0
  44.     FGet 1, INTEGER001
  45.     FClose 1
  46.     BOOLEAN004 = 1
  47.     PrintLn 
  48.     Input "Enter HOST name", STRING007
  49.     PrintLn 
  50.     Input "Enter UNIX directory", STRING008
  51.     PrintLn 
  52.     If (BOOLEAN004) Then
  53.         Input "Enter FILENAME", STRING009
  54.         PrintLn 
  55.         STRING006 = "Y"
  56.         InputYN "Is this a BINARY file (Y/N)", STRING006, 15
  57.         PrintLn 
  58.         If (STRING006 == "Y") Then
  59.             BOOLEAN003 = 1
  60.             PrintLn "FILETYPE: BINARY"
  61.             Goto LABEL001
  62.         Endif
  63.         BOOLEAN003 = 0
  64.         PrintLn "FILETYPE: ASCII"
  65.     Endif
  66.     :LABEL001
  67.     PrintLn 
  68.     Print "Creating FTP request...."
  69.     STRING005 = PPEPath() + "FTEMP" + String(PcbNode()) + ".TMP"
  70.     FCreate 1, STRING005, 1, 3
  71.     STRING001 = U_Name()
  72.     STRING003 = "ftpmail@sunsite.unc.edu"
  73.     STRING002 = " "
  74.     STRING004 = "R"
  75.     BOOLEAN001 = 0
  76.     BOOLEAN002 = 1
  77.     DATE001 = Date() + 3
  78.     FPutLn 1, "open ", STRING007
  79.     If (BOOLEAN004) Then
  80.         If (BOOLEAN003) Then
  81.             FPutLn 1, "binary"
  82.             FPutLn 1, "uuencode"
  83.             Goto LABEL002
  84.         Endif
  85.         FPutLn 1, "ascii"
  86.     Endif
  87.     :LABEL002
  88.     FPutLn 1, "cd ", STRING008
  89.     If (BOOLEAN004) Then
  90.         FPutLn 1, "get ", STRING009
  91.     Else
  92.         FPutLn 1, "dir"
  93.     Endif
  94.     FPutLn 1, "quit"
  95.     FClose 1
  96.     PrintLn "Done!"
  97.     STRING006 = "Y"
  98.     InputYN "Do you want to send this request (Y/N)", STRING006, 15
  99.     If (STRING006 == "Y") Then
  100.         PrintLn 
  101.         PrintLn "Request sent!"
  102.         Message INTEGER001, STRING003, STRING001, STRING002, STRING004, DATE001, BOOLEAN001, BOOLEAN002, STRING005
  103.     Else
  104.         PrintLn 
  105.         PrintLn "Request Aborted!"
  106.     Endif
  107.     PrintLn "Returning back to BBS"
  108.     End
  109.  
  110. ;------------------------------------------------------------------------------
  111. ;
  112. ; Usage report (before postprocessing)
  113. ;
  114. ; ■ Statements used :
  115. ;
  116. ;    1       End
  117. ;    1       Cls
  118. ;    10      Goto 
  119. ;    16      Let 
  120. ;    1       Print 
  121. ;    15      PrintLn 
  122. ;    6       If 
  123. ;    3       Input 
  124. ;    1       FCreate 
  125. ;    1       FOpen 
  126. ;    2       FClose 
  127. ;    1       FGet 
  128. ;    8       FPutLn 
  129. ;    2       InputYN 
  130. ;    1       Delay 
  131. ;    1       Message 
  132. ;
  133. ;
  134. ; ■ Functions used :
  135. ;
  136. ;    5       +
  137. ;    2       ==
  138. ;    6       !
  139. ;    1       Date()
  140. ;    1       U_Name()
  141. ;    1       String()
  142. ;    2       PPEPath()
  143. ;    1       PcbNode()
  144. ;
  145. ;------------------------------------------------------------------------------
  146. ;
  147. ; Analysis flags : No flag
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Postprocessing report
  152. ;
  153. ;    0       For/Next
  154. ;    0       While/EndWhile
  155. ;    6       If/Then or If/Then/Else
  156. ;    0       Select Case
  157. ;
  158. ;------------------------------------------------------------------------------
  159. ;                 AEGiS Corp - Break the routines, code against the machines!
  160. ;------------------------------------------------------------------------------
  161.